(insert-directory): Don't treat FILE as a wildcard if FILE exists as

a directory.

diff --git a/lisp/ls-lisp.el b/lisp/ls-lisp.el
index 94c8004ff5e427faabc6c89b87dbc9c154413de3..5d6d68e32711274c57718636dcd9b5ac21c301cd 100644 (file)
--- a/lisp/ls-lisp.el
+++ b/lisp/ls-lisp.el
@@ -229,7 +229,10 @@ that work are: A a c i r S s t u U X g G B C R and F partly."
        ;; `ls' don't mind, we certainly do, because it makes us think
        ;; there is no wildcard, only a directory name.
        (if (and ls-lisp-support-shell-wildcards
-                (string-match "[[?*]" file))
+                (string-match "[[?*]" file)
+                ;; Prefer an existing directory to wildcards, like
+                ;; dired-noselect does.
+                (not (file-directory-p file)))
            (progn
              (or (not (eq (aref file (1- (length file))) ?/))
                  (setq file (substring file 0 (1- (length file)))))